#!/usr/bin/perl -w

while(<<>>) {
    if(/\A[A-Z][a-z]+/){
        print ;
    }
}
